home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group96a.txt / 000017_icon-group-sender _Tue Jan 16 11:42:13 1996.msg < prev    next >
Internet Message Format  |  1996-09-05  |  888b
  1. Received: by cheltenham.cs.arizona.edu; Tue, 16 Jan 1996 12:30:41 MST
  2. Date: Tue, 16 Jan 1996 11:42:13 -0600
  3. From: jeffery@dragon.cs.utsa.edu (Clinton Jeffery)
  4. Message-Id: <9601161742.AA15787@dragon.cs.utsa.edu>
  5. To: H.Lawson@tees.ac.uk
  6. Cc: icon-group@cs.arizona.edu
  7. In-Reply-To: <4B78DE79AC@scm_arkengarthdale.tees.ac.uk> (H.Lawson@tees.ac.uk)
  8. Subject: Re: Initialising tables
  9. Content-Length: 405
  10. Errors-To: icon-group-errors@cs.arizona.edu
  11. Status: O
  12.  
  13.  
  14. How about a helper procedure like:
  15.  
  16. procedure Table(default, x[])
  17.    local rv := Table(default)
  18.    every k := pop(x) do rv[k] := pop(x)
  19.    return rv
  20. end
  21.  
  22. then your example looks like
  23.  
  24. aTable := Table(&null, "bob",2, "sue",5, "fred",12, "mary",9)
  25.  
  26.  
  27. The built-in table() function could be extended easily along these lines.
  28.  
  29.  
  30. Clint Jeffery
  31. jeffery@ringer.cs.utsa.edu
  32. The University of Texas at San Antonio
  33.